home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_137_addProp aPropertyList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  718 b   |  18 lines
  1. on mouseDown
  2.   global gDefaultPropList, gCopyOfList
  3.   doButton()
  4.   if the result = 1 then
  5.     set vAddValue to the text of member "Copying Property Copy Input Field 2"
  6.     set vAddValue to checkValue(vAddValue)
  7.     set vAddProperty to the text of member "Copying Property Copy Input Field 1"
  8.     set vAddProperty to checkValue(vAddProperty)
  9.     if (vAddValue <> EMPTY) and (vAddProperty <> EMPTY) then
  10.       addProp(gDefaultPropList, vAddProperty, vAddValue)
  11.       set the text of member "Copying Property Copy Display Field 1" to string(gDefaultPropList)
  12.       if gCopyOfList <> 0 then
  13.         set the text of member "Copying Property Copy Display Field 2" to string(gCopyOfList)
  14.       end if
  15.     end if
  16.   end if
  17. end
  18.